home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 05 Programming / CDT128.ARC / CDT.C < prev    next >
Text File  |  2019-04-13  |  7KB  |  212 lines
  1.  
  2. /*****************************************************************************/
  3. /*                                                                           */
  4. /*                      C POWER  DEBUGGING  TOOL                             */
  5. /*                                                                           */
  6. /*                                 CDT                                       */
  7. /*                                                                           */
  8. /*****************************************************************************/
  9.  
  10. /***********************************************************************/
  11. /***********************************************************************/
  12. /*                                                                     */
  13. /* ╘HIS PROGRAM IS COPYRIGHT 1986 BY ┴LAN ┘ORINKS.  ╔T MAY BE FREELY   */
  14. /* DISTRIBUTED FOR NON COMMERCIAL USAGE IF THIS COPYRIGHT NOTICE IS    */
  15. /* LEFT INTACT. ├OMMERCIAL USAGE OF THIS PROGRAM IS EXPLICITLY         */
  16. /* FORBIDDEN WITHOUT THE WRITTEN PERMISSION OF THE AUTHOR.             */
  17. /*                                                                     */
  18. /***********************************************************************/
  19. /***********************************************************************/
  20.  
  21.  
  22. /*     CDT VERSION 1.0    PART 2 OF 15   ╩ULY 25, 1986                 */
  23.  
  24.  
  25. /* USAGE: -P                        PAGE CONTROL OFF.                        */
  26. /*        -R XXXX YY                READ BYTE AT ADDRESS XXXX IN BANK YY.    */
  27. /*        -W XXXX YY ZZ             WRITE BYTE YY AT ADDRESS XXXX IN BANK ZZ.*/
  28. /*        -B VVVV... XXXX YYYY ZZ   FIND NUMERICAL BYTE STRING,VVVV          */
  29. /*                                  IN ADDRESS XXXX THROUGH YYYY IN          */
  30. /*                                  BANK ZZ.                                 */
  31. /*        -C "ABC..." XXXX YYYY ZZ  FIND ALPHA STRING, ABC..., IN ADDRESS    */
  32. /*                                  XXXX THROUGH YYYY IN BANK ZZ.            */
  33. /*        -M XXXX YYYY ZZ           DUMP MEMORY FROM ADDRESS XXXX THROUGH    */
  34. /*                                  YYYY IN BANK ZZ                          */
  35. /*        -D XXXX YYYY ZZ           DISASSEMBLE MEMORY FROM ADDRESS XXXX     */
  36. /*                                  THROUGH YYYY IN BANK ZZ                  */
  37.  
  38. /* ╙╨┼├╔┴╠ ╬╧╘┼: ALL NUMERICAL VALUES ARE TO BE INPUT IN ╚┼╪ !!!!            */
  39.  
  40. #INCLUDE <STDIO.H>
  41. #INCLUDE "DBUG.H"
  42.  
  43.  
  44. /*************************** GLOBAL STORAGE ****************************/
  45.  
  46. INT LNCNT ;     /* COUNT OF LINES SENT TO OUTPUT DEVICE */
  47. INT PAGE ;      /* PAGE FLAG - ╘╥╒┼/╞┴╠╙┼ */
  48.  
  49.  
  50.  
  51. MAIN( ARGC, ARGV )
  52.     INT          ARGC ;
  53.     CHAR        *ARGV[] ;
  54. █
  55.  
  56.     AUTO   CHAR C ;         /* COMMAND CHARACTER */
  57.     AUTO   INT  COUNT ;     /* ARGUMENT COUNT REGISTER */
  58.     AUTO   INT  (*GO)() ;   /* EXECUTABLE FUNCTION POINTER */
  59.     EXTERN INT  PRñUSAGE(), GETARGS() ;
  60.     EXTERN VOID DASMBL(), DUMP(), FIND(), READ(), WRITE(),
  61.                 NULLñFUNC(), BYTEñSTRNG() ;
  62.  
  63.     IF( ARGC < ═╔╬┴╥╟ )     /* TEST IF THERE ARE ANY ARGUMENTS PASSED */
  64.     █
  65.         PRñUSAGE(1) ;       /* ERROR - NO PARAMETERS */
  66.         ABORT() ;
  67.     ▌
  68.  
  69.  
  70.     /* COUNT WILL BE MAINTAINED BY EACH COMMAND PROCESS */
  71.  
  72.     FOR( COUNT = 1, PAGE = ╘╥╒┼, LNCNT = 0, GO = NULLñFUNC ; COUNT < ARGC ; )
  73.     █
  74.         IF( ARGV[COUNT][0] != '-' )    /* PARAMETER MUST START WITH DASH */
  75.         █
  76.             PRñUSAGE(2) ;
  77.             ABORT() ;
  78.         ▌
  79.  
  80.  
  81.         SWITCH( C = ARGV[COUNT][1] )         /* GET PARAMETER CHARACTER */
  82.         █
  83.             CASE 'P':
  84.                 COUNT++ ;
  85.                 PAGE = ╞┴╠╙┼ ;
  86.                 BREAK ;
  87.  
  88.             CASE 'D':
  89.                 TESTCMD( GO ) ;
  90.                 COUNT++ ;
  91.  
  92.                 /* TEST IF THERE ARE ENOUGH ARGUMENTS FOR COMMAND */
  93.  
  94.                 IF ( (ARGC - COUNT) < 3)
  95.                 █
  96.                     PRñUSAGE(8) ;
  97.                     ABORT() ;
  98.                 ▌
  99.                 IF( GETARGS( ARGV, &COUNT, ─┴╙═┬╠ ) == ┴╥╟┼╥╥ )
  100.                 █
  101.                     PRñUSAGE(4) ;
  102.                     ABORT() ;
  103.                 ▌
  104.                 GO = DASMBL ;
  105.                 BREAK ;
  106.  
  107.             CASE 'M':
  108.                 TESTCMD( GO ) ;
  109.                 COUNT++ ;
  110.                 IF ( (ARGC - COUNT) < 3)
  111.                 █
  112.                     PRñUSAGE(8) ;
  113.                     ABORT() ;
  114.                 ▌
  115.                 IF( GETARGS( ARGV, &COUNT, ─╒═╨ ) == ┴╥╟┼╥╥ )
  116.                 █
  117.                     PRñUSAGE(4) ;
  118.                     ABORT() ;
  119.                 ▌
  120.                 GO = DUMP ;
  121.                 BREAK ;
  122.  
  123.             CASE 'R':
  124.                 TESTCMD( GO ) ;
  125.                 COUNT++ ;
  126.                 IF ( (ARGC - COUNT) < 2)
  127.                 █
  128.                     PRñUSAGE(8) ;
  129.                     ABORT() ;
  130.                 ▌
  131.                 IF( GETARGS( ARGV, &COUNT, ╥┼┴─ ) == ┴╥╟┼╥╥ )
  132.                 █
  133.                     PRñUSAGE(4) ;
  134.                     ABORT() ;
  135.                 ▌
  136.                 GO = READ ;
  137.                 BREAK ;
  138.  
  139.             CASE 'W':
  140.                 TESTCMD( GO ) ;
  141.                 COUNT++ ;
  142.                 IF ( (ARGC - COUNT) < 3)
  143.                 █
  144.                     PRñUSAGE(8) ;
  145.                     ABORT() ;
  146.                 ▌
  147.                 IF( GETARGS( ARGV, &COUNT, ╫╥╔╘┼ ) == ┴╥╟┼╥╥ )
  148.                 █
  149.                     PRñUSAGE(4) ;
  150.                     ABORT() ;
  151.                 ▌
  152.                 GO = WRITE ;
  153.                 BREAK ;
  154.             
  155.             CASE 'B':
  156.             CASE 'C':
  157.                 TESTCMD( GO ) ;
  158.                 COUNT++ ;
  159.                 IF ( (ARGC - COUNT) < 4)
  160.                 █
  161.                     PRñUSAGE(8) ;
  162.                     ABORT() ;
  163.                 ▌
  164.                 IF( GETARGS( ARGV, &COUNT, ╞╔╬─ ) == ┴╥╟┼╥╥ )
  165.                 █
  166.                     PRñUSAGE(4) ;
  167.                     ABORT() ;
  168.                 ▌
  169.                 IF( C == 'B' )
  170.                     BYTEñSTRNG() ;
  171.                 GO = FIND ;
  172.                 BREAK ;
  173.  
  174.             DEFAULT :
  175.                 PRñUSAGE(5) ;
  176.                 ABORT() ;
  177.         ▌
  178.     ▌
  179.     
  180.     (*GO)() ;       /* EXECUTE COMMAND */
  181.     PRINTF("\N") ;
  182. ▌
  183.  
  184.  
  185. /* A TEST FOR THE FUNCTION POINTER BEING SET TO SOMETHING OTHER THAN */
  186. /* NULLñFUNC, MUST BE PERFORMED FOR EACH CASE SO THAT POSITION       */
  187. /* INDEPENDENCE OF COMMAND ARGUMENTS MAY BE PROVIDED FOR THE         */
  188. /* COMMAND LINE.                                                     */
  189.  
  190. VOID
  191. TESTCMD( FPTR )
  192.     VOID    (*FPTR)() ;
  193.  
  194. █
  195.     EXTERN VOID NULLñFUNC(), PRñUSAGE(), ABORT() ;
  196.  
  197.     IF( FPTR != &NULLñFUNC )
  198.     █
  199.         PRñUSAGE(3) ;
  200.         ABORT() ;
  201.     ▌
  202. ▌
  203.  
  204. VOID
  205. NULLñFUNC()
  206. █
  207.     EXTERN VOID PRñUSAGE() ;
  208.  
  209.     PRñUSAGE(7) ;
  210. ▌
  211.  
  212.